home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
By Popular Request 2.0
/
By Popular Request 2.0 (Arsenal Computer).ISO
/
amiga_1
/
asokbn24.lha
/
ASokoban2.4
/
Install
< prev
next >
Wrap
Text File
|
1995-06-05
|
5KB
|
149 lines
;;; Strings
(set #how-install
(cat "Do you want to install the whole program or just update the "
"language catalogs?"))
(set #how-install-help
(cat "Choose \"Install whole program\" if you are installing from "
"scratch or if you are updating an old version.\n"
"\nChoose \"Update languages\" if you want to install new "
"language catalogs."))
(set #how-install-1 "Install whole program")
(set #how-install-2 "Update languages")
(set #where-install
"Choose location where you want to install ASokoban.")
(set #which-icons
"Which icons do you want to install with ASokoban?")
(set #which-icons-help
(cat "Choose \"MagicWB icons\" if you have MagicWB installed, "
"otherwise choose \"Standard icons\"."))
(set #which-icons-1 "MagicWB icons")
(set #which-icons-2 "Standard icons")
(set #where-languages
"Where do you want to install the language catalogs?")
(set #where-languages-help
(cat "This lets you choose if you want the language catalogs to be "
"copied to the same location as the rest of the program, or if "
"you want to have them in the global Catalog dir."))
(set #which-languages
"Which languages do you want ASokoban to support?")
(set #which-languages-help
(cat "Check all languages you want ASokoban to support.\n"
"\nIf a language is already installed and you don't check it, "
"it will be removed."))
;;; Procedures
(procedure install-program
(set @default-dest prog-dest)
(copylib (source (tackon sourcedir "ASokoban"))
(dest prog-dest))
(copylib (source (tackon sourcedir "ASokoban.guide"))
(dest prog-dest)))
(procedure install-icons
(set which-icons (askchoice (prompt #which-icons)
(help #which-icons-help)
(choices #which-icons-1 #which-icons-2)))
(copyfiles (source icon-srcdir)
(dest prog-dest)
(choices "ASokoban.info"))
(if (= which-icons 1)
(set icon-srcdir (tackon icon-srcdir "misc")))
(copyfiles (source icon-srcdir)
(dest prog-dest)
(choices "ASokoban.guide.info"))
(tooltype (dest (tackon prog-dest "ASokoban"))
(noposition))
(tooltype (dest (tackon prog-dest "ASokoban.guide"))
(noposition)))
(procedure install-locales
(set where-languages (askchoice (prompt #where-languages)
(help #where-languages-help)
(choices locale-dest
locale-sysdest)))
(if (= where-languages 1)
(set locale-dest locale-sysdest))
(set which-languages (askoptions (prompt #which-languages)
(help #which-languages-help)
(choices "Dansk"
"Deutsch"
"Norsk"
"Polski"
"Suomi"
"Svenska")))
(set locale "dansk")
(if (IN which-languages 0)
(install-locale)
(remove-locale))
(set locale "deutsch")
(if (IN which-languages 1)
(install-locale)
(remove-locale))
(set locale "norsk")
(if (IN which-languages 2)
(install-locale)
(remove-locale))
(set locale "polski")
(if (IN which-languages 3)
(install-locale)
(remove-locale))
(set locale "suomi")
(if (IN which-languages 4)
(install-locale)
(remove-locale))
(set locale "svenska")
(if (IN which-languages 5)
(install-locale)
(remove-locale)))
(procedure install-locale
(makedir locale-dest)
(makedir (tackon locale-dest locale))
(copylib (source (tackon (tackon locale-srcdir locale) "asokoban.catalog"))
(dest (tackon locale-dest locale))))
(procedure remove-locale
(delete (tackon (tackon locale-dest locale) "asokoban.catalog"))
(if (NOT (= locale-dest locale-sysdest))
((delete (tackon locale-dest locale))
(delete locale-dest))))
;;; Main program
(set sourcedir (pathonly @icon))
(set icon-srcdir sourcedir)
(set locale-srcdir (tackon sourcedir "Catalogs"))
(set locale-sysdest "LOCALE:Catalogs")
(set prog-dest (askdir (prompt #where-install)
(help @askdir-help)
(default @default-dest)))
(set how-install (askchoice (prompt #how-install)
(help #how-install-help)
(choices #how-install-1 #how-install-2)))
(if (= how-install 0)
((install-program)
(install-icons)
(run (cat "convscorefile \"" prog-dest "\""))
(delete (tackon prog-dest "ASokoban.doc"))
(delete (tackon prog-dest "ASokoban.doc.info")))
(set @default-dest ""))
(set locale-dest (tackon prog-dest "Catalogs"))
(install-locales)